home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / FLAK_REACH.TCL < prev    next >
Encoding:
Text File  |  2000-08-20  |  521 b   |  26 lines

  1. # -----------------------------------------------------------
  2. # Manoever fuer Flaks:
  3. # nur Ausrichten
  4. #
  5. #   ⌐ radon labs gmbh
  6. #
  7. #   20-Aug-00   af          created
  8. # ------------------------------------------------------------
  9.  
  10. # eine Root
  11. new nroot flak/reach
  12. sel flak/reach
  13.  
  14. # einfaches Anfliegen
  15. new ncommandlist reach
  16. reach.setadjusttype    reach
  17. reach.settestcommand   mgreach_test
  18. reach.addcommand  true 0 0 -10 false 0 0 0 nothing 1.0
  19.  
  20. proc mgreach_test {} { return 1.0 }
  21.  
  22.  
  23. sel ..
  24. sel ..
  25.  
  26.